home *** CD-ROM | disk | FTP | other *** search
/ Arktis Edition / ARKTIS Edition Vol. 1 (1994)(ARKTIS)(DE)[!].iso / softwareproben / databaseprof-demo / dbpro2 / fakturierung / aufträge.adr.rexx next >
OS/2 REXX Batch file  |  1994-08-04  |  2KB  |  60 lines
  1. /* Kunden der Aufträge */
  2.  
  3. Options results
  4.  
  5. ADDRESS DataBase
  6.  
  7. GetData $F1                          /* Inhalt aus Feld 1 auslesen         */
  8. kdn = RESULT                         /* und in der Variablen kdn speichern */
  9.  
  10. CurrentBase                          /* aktuelle Base-Nr. merken           */
  11. oldbase = RC
  12.  
  13. FindBase 'kundenkartei.db'           /* gibt die Base-Nr. zurück, in der die  */
  14. newbase = RC                         /* Datei geladen ist.                    */
  15. IF newbase > 0 THEN                  /* Ist die Datei vorhanden, dann         */
  16.   Base newbase                       /* auf die neue Base umschalten          */
  17. ELSE                                 /* wenn nicht,                           */
  18.   DO                                 /* dann                                  */
  19.   Base 5                             /* auf Base 5 umschalten                 */
  20.   OPEN "Fakturierung/kundenkartei.db"/* Datei rechnung.db laden               */
  21. END
  22.  
  23. Base newbase
  24. LeftTotal
  25. weiter = 1
  26.   DO WHILE weiter > 0
  27.     GetData $F1
  28.     IF result = kdn THEN
  29.       weiter = 0
  30.     IF weiter > 0 THEN
  31.       RightOne
  32.   END
  33.   GetData $F3
  34.   name =  RESULT
  35.   GetData $F4
  36.   name = name || " " || RESULT
  37.   GetData $F5
  38.   pof = RESULT
  39.   GetData $F6
  40.   str = RESULT
  41.   GetData $F7
  42.   plz = RESULT
  43.   GetData $F8
  44.   plz = plz || " " || RESULT
  45.   Base oldbase
  46.  
  47.   ADDRESS
  48.  
  49.   Open(file,"CON:0/0/400/200/Kunde/WAIT/CLOSE/SCREENDataBase",write)
  50.   WriteLn(file,name)
  51.   WriteLn(file,str)
  52.   IF Compare(pof,"") ~= 0 THEN
  53.     WriteLn(file,"Posfach " || pof)
  54.   WriteLn(file,plz)
  55.   Close(file)
  56. END
  57.  
  58.  
  59.  
  60.